home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / NONSIZE.ZIP;1 / MDIFORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-29  |  1.7 KB  |  62 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "MDIForm1"
  4.    ClientHeight    =   4395
  5.    ClientLeft      =   900
  6.    ClientTop       =   1905
  7.    ClientWidth     =   5760
  8.    Height          =   4800
  9.    Left            =   840
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1560
  12.    Width           =   5880
  13.    Begin PictureBox Picture1 
  14.       Align           =   1  'Align Top
  15.       BackColor       =   &H00C0C0C0&
  16.       Height          =   525
  17.       Left            =   0
  18.       ScaleHeight     =   495
  19.       ScaleWidth      =   5730
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   5760
  23.       Begin CommandButton Command2 
  24.          BackColor       =   &H00C0C0C0&
  25.          Caption         =   "Non-Sizable Std"
  26.          Height          =   375
  27.          Left            =   1920
  28.          TabIndex        =   3
  29.          Top             =   60
  30.          Width           =   1710
  31.       End
  32.       Begin CommandButton Command3 
  33.          BackColor       =   &H00C0C0C0&
  34.          Caption         =   "Exit"
  35.          Height          =   375
  36.          Left            =   3900
  37.          TabIndex        =   2
  38.          Top             =   60
  39.          Width           =   1710
  40.       End
  41.       Begin CommandButton Command1 
  42.          BackColor       =   &H00C0C0C0&
  43.          Caption         =   "Non-Sizable MDI"
  44.          Height          =   375
  45.          Left            =   120
  46.          TabIndex        =   1
  47.          Top             =   60
  48.          Width           =   1710
  49.       End
  50.    End
  51. Option Explicit
  52. Sub Command1_Click ()
  53.     Form1.Show
  54. End Sub
  55. Sub Command2_Click ()
  56.     Form2.Show
  57. End Sub
  58. Sub Command3_Click ()
  59.     Unload Me
  60.     End
  61. End Sub
  62.